(occur-read-primary-args): Pass default to read-from-minibuffer.

diff --git a/lisp/replace.el b/lisp/replace.el
index 60c28d6c48a03f1e43cb90148526dc7fb55642a0..f81c6f539147011240682aa2f01f7c5d892967e9 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -786,7 +786,8 @@ If the value is nil, don't highlight the buffer names specially."
                 nil
                 nil
                 nil
-                'regexp-history)))
+                'regexp-history
+                default)))
          (if (equal input "")
              default
            input))